setwd(pathData)
load("epr.final.rda")

epr.final$mad_gdppc <- epr.final$mad_gdppc/1000
	epr.final$past.conference.dummy.noIR <- ifelse(epr.final$past.conference.number.noIR>0,1,0)
		epr.final$maj.leader <- ifelse(epr.final$leader.size==epr.final$epr_max_size,1,0)